home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / starfi_1 / form1.frm next >
Text File  |  1997-09-08  |  12KB  |  357 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H0000C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   4815
  8.    ClientLeft      =   1920
  9.    ClientTop       =   2640
  10.    ClientWidth     =   5445
  11.    Height          =   5220
  12.    KeyPreview      =   -1  'True
  13.    Left            =   1860
  14.    LinkTopic       =   "Form1"
  15.    ScaleHeight     =   4815
  16.    ScaleWidth      =   5445
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2295
  19.    Width           =   5565
  20.    Begin VB.PictureBox picTitlemsk 
  21.       Appearance      =   0  'Flat
  22.       AutoRedraw      =   -1  'True
  23.       AutoSize        =   -1  'True
  24.       BackColor       =   &H80000005&
  25.       ForeColor       =   &H80000008&
  26.       Height          =   1440
  27.       Left            =   2400
  28.       Picture         =   "Form1.frx":0000
  29.       ScaleHeight     =   94
  30.       ScaleMode       =   3  'Pixel
  31.       ScaleWidth      =   359
  32.       TabIndex        =   3
  33.       Top             =   3180
  34.       Visible         =   0   'False
  35.       Width           =   5415
  36.    End
  37.    Begin VB.PictureBox picTitle 
  38.       Appearance      =   0  'Flat
  39.       AutoRedraw      =   -1  'True
  40.       AutoSize        =   -1  'True
  41.       BackColor       =   &H80000005&
  42.       ForeColor       =   &H80000008&
  43.       Height          =   1440
  44.       Left            =   2280
  45.       Picture         =   "Form1.frx":18CD2
  46.       ScaleHeight     =   94
  47.       ScaleMode       =   3  'Pixel
  48.       ScaleWidth      =   359
  49.       TabIndex        =   2
  50.       Top             =   1560
  51.       Visible         =   0   'False
  52.       Width           =   5415
  53.    End
  54.    Begin VB.Timer Timer1 
  55.       Interval        =   20
  56.       Left            =   0
  57.       Top             =   1380
  58.    End
  59.    Begin VB.PictureBox picWork 
  60.       Appearance      =   0  'Flat
  61.       AutoRedraw      =   -1  'True
  62.       BackColor       =   &H00000000&
  63.       DrawWidth       =   2
  64.       FillColor       =   &H0000FF00&
  65.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   12
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       ForeColor       =   &H0000FF00&
  75.       Height          =   555
  76.       Left            =   540
  77.       ScaleHeight     =   35
  78.       ScaleMode       =   3  'Pixel
  79.       ScaleWidth      =   59
  80.       TabIndex        =   1
  81.       Top             =   1500
  82.       Visible         =   0   'False
  83.       Width           =   915
  84.    End
  85.    Begin VB.PictureBox picScreen 
  86.       Appearance      =   0  'Flat
  87.       AutoRedraw      =   -1  'True
  88.       BackColor       =   &H00000000&
  89.       DrawWidth       =   4
  90.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   13.5
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H0000FF00&
  100.       Height          =   1335
  101.       Left            =   0
  102.       ScaleHeight     =   87
  103.       ScaleMode       =   3  'Pixel
  104.       ScaleWidth      =   787
  105.       TabIndex        =   0
  106.       Top             =   0
  107.       Width           =   11835
  108.       Begin VB.Frame Frame1 
  109.          Height          =   1335
  110.          Left            =   0
  111.          TabIndex        =   4
  112.          Top             =   0
  113.          Width           =   1755
  114.          Begin VB.CommandButton Command1 
  115.             Caption         =   "&Exit"
  116.             Height          =   315
  117.             Left            =   480
  118.             TabIndex        =   5
  119.             Top             =   960
  120.             Width           =   675
  121.          End
  122.          Begin VB.Label Label1 
  123.             BackColor       =   &H00C0C0C0&
  124.             Caption         =   "DOWN"
  125.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  126.                Name            =   "MS Sans Serif"
  127.                Size            =   9.75
  128.                Charset         =   0
  129.                Weight          =   400
  130.                Underline       =   0   'False
  131.                Italic          =   0   'False
  132.                Strikethrough   =   0   'False
  133.             EndProperty
  134.             ForeColor       =   &H000000FF&
  135.             Height          =   255
  136.             Index           =   3
  137.             Left            =   480
  138.             TabIndex        =   9
  139.             Top             =   660
  140.             Width           =   675
  141.          End
  142.          Begin VB.Label Label1 
  143.             Caption         =   "RIGHT"
  144.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  145.                Name            =   "MS Sans Serif"
  146.                Size            =   9.75
  147.                Charset         =   0
  148.                Weight          =   400
  149.                Underline       =   0   'False
  150.                Italic          =   0   'False
  151.                Strikethrough   =   0   'False
  152.             EndProperty
  153.             Height          =   255
  154.             Index           =   2
  155.             Left            =   900
  156.             TabIndex        =   8
  157.             Top             =   420
  158.             Width           =   675
  159.          End
  160.          Begin VB.Label Label1 
  161.             Caption         =   "LEFT"
  162.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  163.                Name            =   "MS Sans Serif"
  164.                Size            =   9.75
  165.                Charset         =   0
  166.                Weight          =   400
  167.                Underline       =   0   'False
  168.                Italic          =   0   'False
  169.                Strikethrough   =   0   'False
  170.             EndProperty
  171.             Height          =   255
  172.             Index           =   1
  173.             Left            =   120
  174.             TabIndex        =   7
  175.             Top             =   420
  176.             Width           =   615
  177.          End
  178.          Begin VB.Label Label1 
  179.             Alignment       =   2  'Center
  180.             BackColor       =   &H00C0C0C0&
  181.             Caption         =   "UP"
  182.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  183.                Name            =   "MS Sans Serif"
  184.                Size            =   9.75
  185.                Charset         =   0
  186.                Weight          =   400
  187.                Underline       =   0   'False
  188.                Italic          =   0   'False
  189.                Strikethrough   =   0   'False
  190.             EndProperty
  191.             ForeColor       =   &H000000FF&
  192.             Height          =   315
  193.             Index           =   0
  194.             Left            =   480
  195.             TabIndex        =   6
  196.             Top             =   180
  197.             Width           =   615
  198.          End
  199.       End
  200.    End
  201. End
  202. Attribute VB_Name = "Form1"
  203. Attribute VB_Creatable = False
  204. Attribute VB_Exposed = False
  205. Option Explicit
  206.  
  207.  
  208.  
  209.  
  210. Private Sub Command1_Click()
  211. Unload Me
  212. End Sub
  213.  
  214. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  215. Select Case KeyCode
  216.     Case KEY_LEFT ' stars will scroll left.
  217.         KeyStats = 1
  218.         Label1(0).ForeColor = &H404080
  219.         Label1(1).ForeColor = &HFF&
  220.         Label1(2).ForeColor = &H404080
  221.         Label1(3).ForeColor = &H404080
  222.     Case KEY_UP
  223.         KeyStats = 2 ' stars will scroll up.
  224.         Label1(0).ForeColor = &HFF&
  225.         Label1(1).ForeColor = &H404080
  226.         Label1(2).ForeColor = &H404080
  227.         Label1(3).ForeColor = &H404080
  228.     Case KEY_RIGHT
  229.         KeyStats = 3 ' stars will scroll right.
  230.         Label1(0).ForeColor = &H404080
  231.         Label1(1).ForeColor = &H404080
  232.         Label1(2).ForeColor = &HFF&
  233.         Label1(3).ForeColor = &H404080
  234.     Case KEY_DOWN
  235.         KeyStats = 4 ' stars will scroll down.
  236.         Label1(0).ForeColor = &H404080
  237.         Label1(1).ForeColor = &H404